home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #3 / Floppy_Magazine_88-3_1988_Megasystems_Oy_fi_Side_B.d64 / interdoodle 1.81 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  776b  |  18 lines
  1. 50 poke53280,1:poke53281,1:poke53265,peek(53265)and239:print"[147]"
  2. 60 ifa=0thena=1:loadchr$(160)+chr$(1)+"*",8,1
  3. 70 ifa=1thena=2:loadchr$(160)+chr$(2)+"*",8,1
  4. 80 poke53265,peek(53265)or16:poke56576,peek(56576)and252:poke53272,29:poke648,196
  5. 100 print"[147][161]                                      [146] ";
  6. 110 print"[161] [201]nter[196]oodle v1.81          mtx soft  [144][146][161]";
  7. 120 print"[161]                                      [144][146][161]";
  8. 130 print"[144]  [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  9. 140 print"    [201]nter[196]oodle v1.81 copyright 1987"
  10. 145 printtab(11)"by [205]atti [212]ukiainen"
  11. 150 print"[154]   [201]f you want the newest version of"
  12. 160 print"  [201]nter[196]oodle or you have something to"
  13. 165 printtab(6)"ask, please write. [205][212][216] soft,"
  14. 170 printtab(3)"[212]ehtaant 14, [211][198]-33430 [214]uorentausta"
  15. 180 print"[205]any thanks to my friends [198]ilo and [206]ils-";
  16. 190 print"  [193]slak for their help and assistance."
  17. 200 ifa=2thenloadchr$(160)+chr$(3)+"*",8
  18.